Option Explicit
Sub D_Sample050()
    Windows.Arrange Arrangestyle:=xlArrangeStyleTiled	'æC(w])
    'Windows.Arrange Arrangestyle:=xlArrangeStyleCascade 	'|
    'Windows.Arrange Arrangestyle:=xlArrangeStyleHorizontal	'ñ
    'Windows.Arrange Arrangestyle:=xlArrangeStyleVertical	'ñ
    'Windows.Arrange ActiveWorkbook:=True 	'ƦCҥΤï
    'Windows.Arrange ActiveWorkbook:=True _
        , SyncHorizontal:=True _
        , SyncVertical:=True
 					'ƦCҥΤïAHPB
End Sub

